home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 34 / 034.d81 / program sentry (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  110 lines
  1. 5 gosub60100:clr
  2. 10 poke53280,0:poke53281,0
  3. 20 printchr$(147)chr$(154)chr$(142)
  4. 30 forl=1to9:print:next
  5. 40 printchr$(18);
  6. 50 printtab(13);"program sentry":print:print
  7. 55 print"by bennett cookson jr. & alan w. poole"
  8. 60 a=52950
  9. 70 readn:ifn=256then110
  10. 80 pokea,n
  11. 90 a=a+1:s=s+n
  12. 100 goto70
  13. 110 ifs<>27668thenprint:print"there is an error in the data.":stop
  14. 112 print" press [space] to continue, q to quit.":poke198,.
  15. 113 geta$:ifa$<>" "anda$<>"q"then113
  16. 114 ifa$="q"thengosub60000:goto112
  17. 120 poke818,214:poke819,206
  18. 130 poke816,40:poke817,207
  19. 140 printchr$(19):printchr$(147)
  20. 145 gosub60500
  21. 150 new
  22. 52950 data 72,138,72,152,72,169,11,160
  23. 52958 data 207,32,30,171,32,196,207,32
  24. 52966 data 96,165,173,0,2,240,6,32
  25. 52974 data 207,207,32,126,207,104,168,104
  26. 52982 data 170,104,32,237,245,144,1,96
  27. 52990 data 173,0,2,240,6,32,207,207
  28. 52998 data 32,126,207,24,96,13,87,72
  29. 53006 data 65,84,32,87,73,76,76,32
  30. 53014 data 66,69,32,84,72,69,32,80
  31. 53022 data 65,83,83,87,79,82,68,63
  32. 53030 data 32,0,72,138,72,152,72,169
  33. 53038 data 98,160,207,32,30,171,32,196
  34. 53046 data 207,32,96,165,173,0,2,208
  35. 53054 data 8,104,168,104,170,104,76,165
  36. 53062 data 244,32,207,207,104,168,104,170
  37. 53070 data 104,32,165,244,144,1,96,134
  38. 53078 data 45,132,46,32,126,207,166,45
  39. 53086 data 164,46,24,96,13,80,76,69
  40. 53094 data 65,83,69,32,69,78,84,69
  41. 53102 data 82,32,84,72,69,32,80,65
  42. 53110 data 83,83,87,79,82,68,58,0
  43. 53118 data 165,43,133,253,165,44,133,254
  44. 53126 data 160,0,177,253,240,9,32,168
  45. 53134 data 207,81,253,240,2,145,253,230
  46. 53142 data 253,208,2,230,254,165,253,197
  47. 53150 data 45,208,231,165,254,197,46,208
  48. 53158 data 225,96,56,173,54,3,109,57
  49. 53166 data 3,109,59,3,141,54,3,162
  50. 53174 data 4,189,54,3,157,55,3,202
  51. 53182 data 16,247,173,54,3,96,162,5
  52. 53190 data 169,0,157,0,2,202,16,250
  53. 53198 data 96,162,5,189,0,2,157,54
  54. 53206 data 3,202,16,247,96,256
  55. 60000 print"  are you sure you want to quit? (y/n)":poke198,.
  56. 60010 geta$:ifa$<>"y"anda$<>"[217]"anda$<>"n"anda$<>"[206]"then60010
  57. 60020 ifa$="n"ora$="[206]"thenreturn
  58. 60030 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  59. 60040 ifer<>63thenend
  60. 60050 load"hello connect",8
  61. 60100 pn$="[208][210][207][199][210][193][205] [211][197][206][212][210][217]":an$="[194][217]:  [194][197][206][206][197][212] [195][207][207][203][211][207][206] & [193][204][193][206] [208][207][207][204][197]"
  62. 60110 bo=5:sc=1:cl=06:c1=4:c2=00:c3=4:c4=00:c5=00:c6=02:c7=09
  63. 60130 poke53280,bo:poke53281,sc:print"[147]";:goto60250
  64. 60140 poke646,c1:print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  65. 60150 poke646,c2:print" [165]        [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]:        [167]"
  66. 60170 poke646,c1:print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  67. 60180 poke646,c6:print""tab(20-len(pn$)/2);pn$
  68. 60190 poke646,c7:print""tab(20-len(an$)/2);an$
  69. 60200 poke646,c5:print""tab(13)"[195][207][208][217][210][201][199][200][212] 1986"
  70. 60210 printtab(9)"[195][207][205][205][207][196][207][210][197] [208][213][194][204][201][195][193][212][201][207][206][211]"
  71. 60220 poke646,c3:print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  72. 60230 poke646,c4:print" [165]                                  [167]"
  73. 60240 poke646,c3:print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]";
  74. 60245 poke198,.:goto60360
  75. 60250 poke646,cl
  76. 60255 print" [172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  77. 60260 fora=1to3:gosub60470:next
  78. 60270 gosub60470:print"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  79. 60280 fora=1to16:gosub60470:next
  80. 60290 print"[145][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  81. 60300 fora=1to3:gosub60470:next
  82. 60310 print" [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]";
  83. 60320 poke53280,bo:poke53281,sc:goto60140
  84. 60360 print"";
  85. 60370 poke646,c2:print"[165][208]ress the [[211][208][193][195][197] [194][193][210]] to continue.[167]"
  86. 60380 fora=1to100
  87. 60390 geta$:ifa$=" "ora$="[160]"thenreturn
  88. 60400 next
  89. 60410 print"";
  90. 60420 print"[165]                                  [167]"
  91. 60430 fora=1to100
  92. 60440 geta$:ifa$=" "ora$="[160]"thenreturn
  93. 60450 next
  94. 60460 goto60360
  95. 60470 print" [161][146][161]":return
  96. 60500 print"[147]"chr$(142)
  97. 60505 print"     program sentry - instructions"
  98. 60510 print"program sentry has just been activated."
  99. 60520 print"to de-activate program sentry, press"
  100. 60530 print"run/stop restore."
  101. 60540 print"program sentry protects your programs"
  102. 60550 print"by requiring a password to load them."
  103. 60560 print"each program can have a different"
  104. 60570 print"password and can only be loaded if"
  105. 60580 print"program sentry is active and the"
  106. 60590 print"correct password is given."
  107. 60600 print"warning: do not forget the password!"
  108. 60610 print"there is no way to recover a program"
  109. 60620 print"without the correct password!"
  110.